program dollar

    implicit none

    print '(a,$)', 'ab'
    write (*, "(a)", advance='no') 'cd'
    print '(a)', 'ef'

end program dollar
!> abcdef